home *** CD-ROM | disk | FTP | other *** search
/ Champak 114 / Vol 114.iso / games / y2k_tetr.swf / scripts / DefineSprite_204 / frame_4 / DoAction.as
Encoding:
Text File  |  2010-08-12  |  1.1 KB  |  59 lines
  1. ln = length("" add lvl);
  2. lvl1 = "" add lvl;
  3. while(ln < "2")
  4. {
  5.    lvl1 = "0" add lvl1;
  6.    ln += "1";
  7. }
  8. lvl2 = lvl1;
  9. spdn = length("" add spd);
  10. spd1 = "" add spd;
  11. while(spdn < "2")
  12. {
  13.    spd1 = "0" add spd1;
  14.    spdn += "1";
  15. }
  16. spd2 = spd1;
  17. x = "1";
  18. y = "1";
  19. nfig1 = random("7") + "1";
  20. while(max_x >= x)
  21. {
  22.    y = - "3";
  23.    while(max_y >= y)
  24.    {
  25.       set("dim" add x add "_" add y,"");
  26.       y += "1";
  27.    }
  28.    x += "1";
  29. }
  30. xx = "1000";
  31. while(teknt + "1000" >= xx)
  32. {
  33.    removeMovieClip("k" add xx);
  34.    xx += "1";
  35. }
  36. tt = trlines;
  37. while(tt >= "1")
  38. {
  39.    kolvo = "0";
  40.    while(kolvo < "6")
  41.    {
  42.       kolvo = random("8") + "1";
  43.    }
  44.    nn = "1";
  45.    while(max_x >= nn)
  46.    {
  47.       if(random("2") == "1")
  48.       {
  49.          duplicateMovieClip("kub" add (random("7") + "1"),"k" add tekn,tekn + 16384);
  50.          setProperty("k" add tekn, _X, nn * "10" - "5");
  51.          setProperty("k" add tekn, _Y, (max_y - trlines + tt) * "10" - "5");
  52.          set("dim" add nn add "_" add (max_y - trlines + tt),"k" add tekn);
  53.          tekn += "1";
  54.       }
  55.       nn += "1";
  56.    }
  57.    tt -= "1";
  58. }
  59.